home
***
CD-ROM
|
disk
|
FTP
|
other
***
search
/
EnigmA Amiga Run 1995 October
/
EnigmA AMIGA RUN 01 (1995)(G.R. Edizioni)(IT)[!][issue 1995-10][Aminet 7].iso
/
Aminet
/
gfx
/
fract
/
fu1_61.lha
/
Formulas
/
Lens2.Form
< prev
next >
Wrap
Text File
|
1995-06-08
|
250b
|
31 lines
Lens2
{
{
x1=-2.0
x2= 1.0
y1=-1.5
y2= 1.5
par1.r=0.75
par1.i=0.4
bailout=4.0
}
{
p=pixel-par1
i=abs(p)
pixel=pixel*i
z=pixel
c=pixel
}
{
z=z*z
z=z+c
w=abs(z)
}
{
w>bailout
}
{
PAR1 - CENTRE OF THE LENS
}
}